home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Extra 1996 #2
/
Amiga Plus CD - 1996 - No. 2 Extra.iso
/
clarissa1_1-demo
/
macros
/
demo2.clssa
< prev
next >
Wrap
Text File
|
1995-04-11
|
826b
|
33 lines
/***********************************************************************
$DAT >>Demo2.clssa<< 12.04.1995 - (C) ProDAD Michael Christoph
************************************************************************/
OPTIONS RESULTS
ADDRESS clariSSA
FailAt 99
AltFail=RESULT
If ~Exists("Demo2.SSA") THEN DO
Message "'Die Animation `Demo2.SSA`''befindet sich nicht im''aktuellen Verzeichnis''und kann deshalb nicht''vorgeführt werden.'"
END
ELSE DO
GetAnimInfo MASTER
IF RESULT~="" THEN DO
Parse var RESULT datei .
IF datei="'Demo2.SSA'" THEN laden=nein
END
IF laden~=nein THEN DO
RequestStatus OFF
CloseAnim MASTER
LoadAnim MASTER NAME "Demo2.SSA"
RequestStatus ON
END
PlayAnim 99999 SCREENS /* endlos abspielen */
END
FailAt AltFail
exit